object Fo_Main: TFo_Main
  Left = 749
  Top = 115
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Legend Keiichi 4'
  ClientHeight = 384
  ClientWidth = 512
  Color = clBlack
  Font.Color = clWhite
  Font.Height = -16
  Font.Name = '�l�r �S�V�b�N'
  Font.Style = [fsBold]
  Icon.Data = {<image000.ico>}
  Menu = MainMenu1
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 16
  object Im_MapChar: TImage
    Left = 0
    Top = 320
    Width = 512
    Height = 64
    AutoSize = True
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object Im_Title: TImage
    Left = 16
    Top = 16
    Width = 480
    Height = 256
    AutoSize = True
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object Im_Char: TImage
    Left = 0
    Top = 0
    Width = 512
    Height = 256
    AutoSize = True
    Picture.Data = {<image003.bmp>}
    Visible = False
  end
  object Im_CharE: TImage
    Left = 32
    Top = 32
    Width = 512
    Height = 384
    AutoSize = True
    Picture.Data = {<image004.bmp>}
    Visible = False
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 8
    object M_Game: TMenuItem
      Caption = '�ް�(&G)'
      ShortCut = 0
      object MG_Start: TMenuItem
        Caption = '�ްъJ�n(&G)'
        ShortCut = 113
        OnClick = MG_StartClick
      end
      object MG_Stop: TMenuItem
        Caption = '�ްђ��f(&E)'
        ShortCut = 115
        OnClick = MG_StopClick
      end
      object MG_Sep0: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MG_Exit: TMenuItem
        Caption = '�I��(&X)'
        ShortCut = 0
        OnClick = MG_ExitClick
      end
    end
    object M_Setup: TMenuItem
      Caption = '�ݒ�(&S)'
      ShortCut = 0
      object MS_BGM: TMenuItem
        Caption = 'BGM ON(&B)'
        Checked = True
        ShortCut = 0
        OnClick = MS_BGMClick
      end
      object MS_Sound: TMenuItem
        Caption = '���ʉ�ON(&S)'
        Checked = True
        ShortCut = 0
        OnClick = MS_SoundClick
      end
    end
    object M_Help: TMenuItem
      Caption = '����(&H)'
      ShortCut = 0
      object MH_Contents: TMenuItem
        Caption = '�ڎ�(&C)'
        ShortCut = 112
        OnClick = MH_ContentsClick
      end
      object MH_HomePage: TMenuItem
        Caption = 'Frieve Home Page(&H)'
        ShortCut = 0
        OnClick = MH_HomePageClick
      end
      object MH_Sep0: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MH_About: TMenuItem
        Caption = '�ް�ޮݏ��(&A)...'
        ShortCut = 0
        OnClick = MH_AboutClick
      end
    end
  end
  object Ti_Main: TTimer
    Interval = 30
    OnTimer = Ti_MainTimer
    Left = 40
    Top = 8
  end
end